home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 24
/
AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso
/
PublicDomain
/
Anwendungen
/
MT-RechnungIII
/
Rexx
/
WWRegistrierung.brarexx
< prev
next >
Wrap
Text File
|
1998-08-23
|
6KB
|
225 lines
/*
** Druck-, Vorschau, Sichern eines Registrierungsformulars mit Hilfe von WordWorth
** $VER: WWRegistrerung.brarexx V1.02 (23.08.98)
*/
PARSE ARG ARexxPort;
ADDRESS VALUE ARexxPort;
OPTIONS RESULTS;
WWVorlage = "WWDokumente/Registrierung.ww";
WWDokument = "t:Registrierung.ww";
WWPort = "WORDWORTH."
LF = '0a'x; /* Zeilenvorschub */
Gefunden = 0;
DO i = 1 TO 20 WHILE(Gefunden = 0)
IF show(ports, (WWPort || i)) THEN
DO;
Gefunden = 1;
WWPort = WWPort || i;
END;
END;
IF Gefunden = 0 THEN
DO;
ES_TITLE = "Warnung";
ES_TEXTFORMAT = "WordWorth ist nicht aktiv, bitte starten sie dieses" || LF || "und versuchen Sie es erneut";
ES_GADGETFORMAT = "Abbrechen";
EASY_REQUEST;
EXIT;
END;
/* Original WW-Dokument nach t: kopieren, um ein versehentliches überschreiben */
/* dieser Vorlage zu verhindern */
GET_REXXPATH;
WWVorlage = MTR_RESULT || WWVorlage;
ADDRESS COMMAND "copy" WWVorlage WWDokument;
/* Oberfläche sperren */
LOCKGUI;
/* Art ermitteln: 0 = Drucken, 1 = Vorschau, 2 = Speichern */
PRINTSTATE;
Druckart = MTR_RESULT;
Ende_Kennzeichen = 'N';
/* Suchen der zu druckenden Daten */
PRINTFIND;
/* Neues Dokument öffnen */
ADDRESS VALUE WWPort;
NEW;
WWPort = RESULT;
DO WHILE( MTR_RESULT > 0 & Ende_Kennzeichen = 'N');
ADDRESS VALUE WWPort;
CALL DatenAufbereiten;
SELECT;
WHEN Druckart = 0 THEN /* Drucken */
DO;
ADDRESS VALUE WWPort;
PRINT;
ADDRESS VALUE ARexxPort;
MTSCREENTOFRONT;
END;
WHEN Druckart = 1 THEN /* Vorschau */
ADDRESS VALUE ARexxPort;
WHEN Druckart = 2 THEN /* Sichern */
DO;
ADDRESS VALUE WWPort;
SAVEAS;
ADDRESS VALUE ARexxPort;
MTSCREENTOFRONT;
END;
OTHERWISE
DO;
ES_TITLE = "Warnung";
ES_TEXTFORMAT = "Druckart wird nicht unterstützt!";
ES_GADGETFORMAT = "Ok";
EASY_REQUEST;
Ende_Kennzeichen = 'J';
END;
END;
PRINTFIND;
END;
/* WordWorth-Datei aus t: wieder entfernen */
ADDRESS COMMAND "delete" WWDokument;
/* Oberfläche wieder entsperren */
ADDRESS VALUE ARexxPort;
FREEGUI;
EXIT;
DatenAufbereiten:
OPEN FILENAME WWDokument FORCE;
ADDRESS VALUE ARexxPort;
FORMAT_DATE_LONG date(s);
PRINTDATE = MTR_RESULT;
NAME_OF_SALUTATION OFFICE.ADDRESS.SALUTATION;
ZW_Anrede = MTR_RESULT;
IF OFFICE.ADDRESS.BANK_CODE_NUMBER = "0" THEN
OFFICE.ADDRESS.BANK_CODE_NUMBER = "";
GET_COUNTRY OFFICE.ADDRESS.COUNTRY_NUMBER;
FORMAT_DATE_LONG OFFICE.ADDRESS.BIRTHDAY;
ZW_BIRTHDAY = MTR_RESULT;
ADDRESS VALUE WWPort;
DruckString = OFFICE.ADDRESS.ADDRESS.2 || LF;
i = INDEX( DruckString, LF);
IF i > 0 THEN
DO;
DruckTeil = LEFT( DruckString, (i - 1) );
DruckString = SUBSTR(DruckString, (i + 1) );
i = INDEX( DruckString, LF);
END;
ELSE
DruckTeil = DruckString;
FINDCHANGE FIND "<OFFICE.ADDRESS.ADDRESS.2>" CHANGE DruckTeil;
DO WHILE( i > 0 );
DruckTeil = LEFT( DruckString, (i - 1) );
DruckString = SUBSTR(DruckString, (i + 1) );
LINE 1;
TEXT DruckTeil;
i = INDEX( DruckString, LF);
END;
POSITION SOF;
FINDCHANGE FIND "<PRINTDATE>" CHANGE PRINTDATE;
/* Leider wird bei längeren Texten der hintere Teil verschluckt, also nochmal ausgeben */
TEXT PRINTDATE;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.ADDRESS.0>" CHANGE OFFICE.ADDRESS.ADDRESS.0;
/* Leider wird bei längeren Texten der hintere Teil verschluckt, also nochmal ausgeben */
TEXT OFFICE.ADDRESS.ADDRESS.0;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.SALUTATION>" CHANGE ZW_Anrede;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.SURNAME>" CHANGE OFFICE.ADDRESS.SURNAME;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.PRENAME>" CHANGE OFFICE.ADDRESS.PRENAME;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.COMPANY1>" CHANGE OFFICE.ADDRESS.COMPANY1;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.COMPANY2>" CHANGE OFFICE.ADDRESS.COMPANY2;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.STREET>" CHANGE OFFICE.ADDRESS.STREET;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.ZIP>" CHANGE OFFICE.ADDRESS.ZIP;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.CITY>" CHANGE OFFICE.ADDRESS.CITY;
POSITION SOF;
FINDCHANGE FIND "<COUNTRY.NAME>" CHANGE COUNTRY.NAME;
POSITION SOF;
i = OFFICE.ADDRESS.STATE_NUMBER;
FINDCHANGE FIND "<COUNTRY.STATE>" CHANGE COUNTRY.STATE.i;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.PHONE>" CHANGE OFFICE.ADDRESS.PHONE;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.FAX>" CHANGE OFFICE.ADDRESS.FAX;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.EDI>" CHANGE OFFICE.ADDRESS.EDI;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.EMAIL.0>" CHANGE OFFICE.ADDRESS.EMAIL.0;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.EMAIL.1>" CHANGE OFFICE.ADDRESS.EMAIL.1;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.EMAIL.2>" CHANGE OFFICE.ADDRESS.EMAIL.2;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.BANK_CODE_NUMBER>" CHANGE OFFICE.ADDRESS.BANK_CODE_NUMBER;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.BANK_NAME>" CHANGE OFFICE.ADDRESS.BANK_NAME;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.BANK_SHORT>" CHANGE OFFICE.ADDRESS.BANK_SHORT;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.ACCOUNT>" CHANGE OFFICE.ADDRESS.ACCOUNT;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.ADDRESS.BIRTHDAY>" CHANGE ZW_BIRTHDAY;
IF OFFICE.ADDRESS.SURNAME = "" THEN
ZW_SUR_PRENAME = "Unterschrift";
ELSE
ZW_SUR_PRENAME = OFFICE.ADDRESS.PRENAME OFFICE.ADDRESS.SURNAME;
POSITION SOF;
FINDCHANGE FIND "<OFFICE.SUR_PRENAME>" CHANGE ZW_SUR_PRENAME;
RETURN;